home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1994-09-03 | 7.8 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6d 73 40 6d 6f 6c |piled by| rms@mol|
|00000020| 65 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |e.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 53 61 74 20 | 53 65 70 20 20 33 20 31 | on Sat |Sep 3 1|
|00000040| 38 3a 31 32 3a 31 36 20 | 31 39 39 34 0a 3b 3b 3b |8:12:16 |1994.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 66 73 66 2f 72 6d 73 | 2f 65 31 39 2f 6c 69 73 |/fsf/rms|/e19/lis|
|00000070| 70 2f 64 69 61 72 79 2d | 69 6e 73 2e 65 6c 0a 3b |p/diary-|ins.el.;|
|00000080| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|00000090| 20 31 39 2e 32 35 2e 39 | 34 2e 31 2e 0a 3b 3b 3b | 19.25.9|4.1..;;;|
|000000a0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000b0| 6e 20 46 53 46 20 32 2e | 31 30 0a 3b 3b 3b 20 6f |n FSF 2.|10.;;; o|
|000000c0| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|000000d0| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|000000e0| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|000000f0| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000100| 20 69 6e 20 45 6d 61 63 | 73 20 31 38 2e 0a 0a 28 | in Emac|s 18...(|
|00000110| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000120| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000130| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000140| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|00000150| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|00000160| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on).. | (strin|
|00000170| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|00000180| 72 73 69 6f 6e 20 22 31 | 39 22 29 29 29 0a 20 20 |rsion "1|9"))). |
|00000190| 20 20 28 65 72 72 6f 72 | 20 22 60 2f 68 6f 6d 65 | (error| "`/home|
|000001a0| 2f 66 73 66 2f 72 6d 73 | 2f 65 31 39 2f 6c 69 73 |/fsf/rms|/e19/lis|
|000001b0| 70 2f 64 69 61 72 79 2d | 69 6e 73 2e 65 6c 27 20 |p/diary-|ins.el' |
|000001c0| 77 61 73 20 63 6f 6d 70 | 69 6c 65 64 20 66 6f 72 |was comp|iled for|
|000001d0| 20 45 6d 61 63 73 20 31 | 39 22 29 29 0a 0a 28 72 | Emacs 1|9"))..(r|
|000001e0| 65 71 75 69 72 65 20 28 | 71 75 6f 74 65 20 64 69 |equire (|quote di|
|000001f0| 61 72 79 2d 6c 69 62 29 | 29 0a 28 64 65 66 61 6c |ary-lib)|).(defal|
|00000200| 69 61 73 20 27 6d 61 6b | 65 2d 64 69 61 72 79 2d |ias 'mak|e-diary-|
|00000210| 65 6e 74 72 79 20 23 5b | 28 73 74 72 69 6e 67 20 |entry #[|(string |
|00000220| 26 6f 70 74 69 6f 6e 61 | 6c 20 6e 6f 6e 6d 61 72 |&optiona|l nonmar|
|00000230| 6b 69 6e 67 20 66 69 6c | 65 29 20 22 c0 c1 5c 6e |king fil|e) "..\n|
|00000240| 83 5c 6e 00 5c 6e 82 0b | 00 0b 21 21 88 64 62 88 |.\n.\n..|..!!.db.|
|00000250| 6e 83 19 00 c4 82 1a 00 | c5 0e 06 83 24 00 0e 07 |n.......|....$...|
|00000260| 82 25 00 c4 0e 08 c9 b1 | 04 87 22 20 5b 66 69 6e |.%......|.." [fin|
|00000270| 64 2d 66 69 6c 65 2d 6f | 74 68 65 72 2d 77 69 6e |d-file-o|ther-win|
|00000280| 64 6f 77 20 73 75 62 73 | 74 69 74 75 74 65 2d 69 |dow subs|titute-i|
|00000290| 6e 2d 66 69 6c 65 2d 6e | 61 6d 65 20 66 69 6c 65 |n-file-n|ame file|
|000002a0| 20 64 69 61 72 79 2d 66 | 69 6c 65 20 22 22 20 22 | diary-f|ile "" "|
|000002b0| 5c 6e 22 20 6e 6f 6e 6d | 61 72 6b 69 6e 67 20 64 |\n" nonm|arking d|
|000002c0| 69 61 72 79 2d 6e 6f 6e | 6d 61 72 6b 69 6e 67 2d |iary-non|marking-|
|000002d0| 73 79 6d 62 6f 6c 20 73 | 74 72 69 6e 67 20 22 20 |symbol s|tring " |
|000002e0| 22 5d 20 34 20 22 5c 0a | 49 6e 73 65 72 74 20 61 |"] 4 "\.|Insert a|
|000002f0| 20 64 69 61 72 79 20 65 | 6e 74 72 79 20 53 54 52 | diary e|ntry STR|
|00000300| 49 4e 47 20 77 68 69 63 | 68 20 6d 61 79 20 62 65 |ING whic|h may be|
|00000310| 20 4e 4f 4e 4d 41 52 4b | 49 4e 47 20 69 6e 20 46 | NONMARK|ING in F|
|00000320| 49 4c 45 2e 0a 49 66 20 | 6f 6d 69 74 74 65 64 2c |ILE..If |omitted,|
|00000330| 20 4e 4f 4e 4d 41 52 4b | 49 4e 47 20 64 65 66 61 | NONMARK|ING defa|
|00000340| 75 6c 74 73 20 74 6f 20 | 6e 69 6c 20 61 6e 64 20 |ults to |nil and |
|00000350| 46 49 4c 45 20 64 65 66 | 61 75 6c 74 73 20 74 6f |FILE def|aults to|
|00000360| 20 64 69 61 72 79 2d 66 | 69 6c 65 2e 22 5d 29 0a | diary-f|ile."]).|
|00000370| 28 64 65 66 61 6c 69 61 | 73 20 27 69 6e 73 65 72 |(defalia|s 'inser|
|00000380| 74 2d 64 69 61 72 79 2d | 65 6e 74 72 79 20 23 5b |t-diary-|entry #[|
|00000390| 28 61 72 67 29 20 22 c0 | c1 c2 c3 21 c3 89 23 5c |(arg) ".|...!..#\|
|000003a0| 66 5c 22 87 22 20 5b 6d | 61 6b 65 2d 64 69 61 72 |f\"." [m|ake-diar|
|000003b0| 79 2d 65 6e 74 72 79 20 | 63 61 6c 65 6e 64 61 72 |y-entry |calendar|
|000003c0| 2d 64 61 74 65 2d 73 74 | 72 69 6e 67 20 63 61 6c |-date-st|ring cal|
|000003d0| 65 6e 64 61 72 2d 63 75 | 72 73 6f 72 2d 74 6f 2d |endar-cu|rsor-to-|
|000003e0| 64 61 74 65 20 74 20 61 | 72 67 5d 20 35 20 22 5c |date t a|rg] 5 "\|
|000003f0| 0a 49 6e 73 65 72 74 20 | 61 20 64 69 61 72 79 20 |.Insert |a diary |
|00000400| 65 6e 74 72 79 20 66 6f | 72 20 74 68 65 20 64 61 |entry fo|r the da|
|00000410| 74 65 20 69 6e 64 69 63 | 61 74 65 64 20 62 79 20 |te indic|ated by |
|00000420| 70 6f 69 6e 74 2e 0a 50 | 72 65 66 69 78 20 61 72 |point..P|refix ar|
|00000430| 67 20 77 69 6c 6c 20 6d | 61 6b 65 20 74 68 65 20 |g will m|ake the |
|00000440| 65 6e 74 72 79 20 6e 6f | 6e 6d 61 72 6b 69 6e 67 |entry no|nmarking|
|00000450| 2e 22 20 22 50 22 5d 29 | 0a 28 64 65 66 61 6c 69 |." "P"])|.(defali|
|00000460| 61 73 20 27 69 6e 73 65 | 72 74 2d 77 65 65 6b 6c |as 'inse|rt-weekl|
|00000470| 79 2d 64 69 61 72 79 2d | 65 6e 74 72 79 20 23 5b |y-diary-|entry #[|
|00000480| 28 61 72 67 29 20 22 c0 | c1 c2 c3 21 21 5c 66 5c |(arg) ".|...!!\f\|
|00000490| 22 87 22 20 5b 6d 61 6b | 65 2d 64 69 61 72 79 2d |"." [mak|e-diary-|
|000004a0| 65 6e 74 72 79 20 63 61 | 6c 65 6e 64 61 72 2d 64 |entry ca|lendar-d|
|000004b0| 61 79 2d 6e 61 6d 65 20 | 63 61 6c 65 6e 64 61 72 |ay-name |calendar|
|000004c0| 2d 63 75 72 73 6f 72 2d | 74 6f 2d 64 61 74 65 20 |-cursor-|to-date |
|000004d0| 74 20 61 72 67 5d 20 34 | 20 22 5c 0a 49 6e 73 65 |t arg] 4| "\.Inse|
|000004e0| 72 74 20 61 20 77 65 65 | 6b 6c 79 20 64 69 61 72 |rt a wee|kly diar|
|000004f0| 79 20 65 6e 74 72 79 20 | 66 6f 72 20 74 68 65 20 |y entry |for the |
|00000500| 64 61 79 20 6f 66 20 74 | 68 65 20 77 65 65 6b 20 |day of t|he week |
|00000510| 69 6e 64 69 63 61 74 65 | 64 20 62 79 20 70 6f 69 |indicate|d by poi|
|00000520| 6e 74 2e 0a 50 72 65 66 | 69 78 20 61 72 67 20 77 |nt..Pref|ix arg w|
|00000530| 69 6c 6c 20 6d 61 6b 65 | 20 74 68 65 20 65 6e 74 |ill make| the ent|
|00000540| 72 79 20 6e 6f 6e 6d 61 | 72 6b 69 6e 67 2e 22 20 |ry nonma|rking." |
|00000550| 22 50 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |"P"]).(d|efalias |
|00000560| 27 69 6e 73 65 72 74 2d | 6d 6f 6e 74 68 6c 79 2d |'insert-|monthly-|
|00000570| 64 69 61 72 79 2d 65 6e | 74 72 79 20 23 5b 28 61 |diary-en|try #[(a|
|00000580| 72 67 29 20 22 08 83 08 | 00 c1 82 09 00 c2 1b c4 |rg) "...|........|
|00000590| c5 c6 c7 21 c7 5c 22 0e | 08 5c 22 29 87 22 20 5b |...!.\".|.\")." [|
|000005a0| 65 75 72 6f 70 65 61 6e | 2d 63 61 6c 65 6e 64 61 |european|-calenda|
|000005b0| 72 2d 73 74 79 6c 65 20 | 28 64 61 79 20 22 20 2a |r-style |(day " *|
|000005c0| 20 22 29 20 28 22 2a 20 | 22 20 64 61 79 29 20 63 | ") ("* |" day) c|
|000005d0| 61 6c 65 6e 64 61 72 2d | 64 61 74 65 2d 64 69 73 |alendar-|date-dis|
|000005e0| 70 6c 61 79 2d 66 6f 72 | 6d 20 6d 61 6b 65 2d 64 |play-for|m make-d|
|000005f0| 69 61 72 79 2d 65 6e 74 | 72 79 20 63 61 6c 65 6e |iary-ent|ry calen|
|00000600| 64 61 72 2d 64 61 74 65 | 2d 73 74 72 69 6e 67 20 |dar-date|-string |
|00000610| 63 61 6c 65 6e 64 61 72 | 2d 63 75 72 73 6f 72 2d |calendar|-cursor-|
|00000620| 74 6f 2d 64 61 74 65 20 | 74 20 61 72 67 5d 20 34 |to-date |t arg] 4|
|00000630| 20 22 5c 0a 49 6e 73 65 | 72 74 20 61 20 6d 6f 6e | "\.Inse|rt a mon|
|00000640| 74 68 6c 79 20 64 69 61 | 72 79 20 65 6e 74 72 79 |thly dia|ry entry|
|00000650| 20 66 6f 72 20 74 68 65 | 20 64 61 79 20 6f 66 20 | for the| day of |
|00000660| 74 68 65 20 6d 6f 6e 74 | 68 20 69 6e 64 69 63 61 |the mont|h indica|
|00000670| 74 65 64 20 62 79 20 70 | 6f 69 6e 74 2e 0a 50 72 |ted by p|oint..Pr|
|00000680| 65 66 69 78 20 61 72 67 | 20 77 69 6c 6c 20 6d 61 |efix arg| will ma|
|00000690| 6b 65 20 74 68 65 20 65 | 6e 74 72 79 20 6e 6f 6e |ke the e|ntry non|
|000006a0| 6d 61 72 6b 69 6e 67 2e | 22 20 22 50 22 5d 29 0a |marking.|" "P"]).|
|000006b0| 28 64 65 66 61 6c 69 61 | 73 20 27 69 6e 73 65 72 |(defalia|s 'inser|
|000006c0| 74 2d 79 65 61 72 6c 79 | 2d 64 69 61 72 79 2d 65 |t-yearly|-diary-e|
|000006d0| 6e 74 72 79 20 23 5b 28 | 61 72 67 29 20 22 08 83 |ntry #[(|arg) "..|
|000006e0| 08 00 c1 82 09 00 c2 1b | c4 c5 c6 c7 21 c7 5c 22 |........|....!.\"|
|000006f0| 0e 08 5c 22 29 87 22 20 | 5b 65 75 72 6f 70 65 61 |..\")." |[europea|
|00000700| 6e 2d 63 61 6c 65 6e 64 | 61 72 2d 73 74 79 6c 65 |n-calend|ar-style|
|00000710| 20 28 64 61 79 20 22 20 | 22 20 6d 6f 6e 74 68 6e | (day " |" monthn|
|00000720| 61 6d 65 29 20 28 6d 6f | 6e 74 68 6e 61 6d 65 20 |ame) (mo|nthname |
|00000730| 22 20 22 20 64 61 79 29 | 20 63 61 6c 65 6e 64 61 |" " day)| calenda|
|00000740| 72 2d 64 61 74 65 2d 64 | 69 73 70 6c 61 79 2d 66 |r-date-d|isplay-f|
|00000750| 6f 72 6d 20 6d 61 6b 65 | 2d 64 69 61 72 79 2d 65 |orm make|-diary-e|
|00000760| 6e 74 72 79 20 63 61 6c | 65 6e 64 61 72 2d 64 61 |ntry cal|endar-da|
|00000770| 74 65 2d 73 74 72 69 6e | 67 20 63 61 6c 65 6e 64 |te-strin|g calend|
|00000780| 61 72 2d 63 75 72 73 6f | 72 2d 74 6f 2d 64 61 74 |ar-curso|r-to-dat|
|00000790| 65 20 74 20 61 72 67 5d | 20 34 20 22 5c 0a 49 6e |e t arg]| 4 "\.In|
|000007a0| 73 65 72 74 20 61 6e 20 | 61 6e 6e 75 61 6c 20 64 |sert an |annual d|
|000007b0| 69 61 72 79 20 65 6e 74 | 72 79 20 66 6f 72 20 74 |iary ent|ry for t|
|000007c0| 68 65 20 64 61 79 20 6f | 66 20 74 68 65 20 79 65 |he day o|f the ye|
|000007d0| 61 72 20 69 6e 64 69 63 | 61 74 65 64 20 62 79 20 |ar indic|ated by |
|000007e0| 70 6f 69 6e 74 2e 0a 50 | 72 65 66 69 78 20 61 72 |point..P|refix ar|
|000007f0| 67 20 77 69 6c 6c 20 6d | 61 6b 65 20 74 68 65 20 |g will m|ake the |
|00000800| 65 6e 74 72 79 20 6e 6f | 6e 6d 61 72 6b 69 6e 67 |entry no|nmarking|
|00000810| 2e 22 20 22 50 22 5d 29 | 0a 28 64 65 66 61 6c 69 |." "P"])|.(defali|
|00000820| 61 73 20 27 69 6e 73 65 | 72 74 2d 61 6e 6e 69 76 |as 'inse|rt-anniv|
|00000830| 65 72 73 61 72 79 2d 64 | 69 61 72 79 2d 65 6e 74 |ersary-d|iary-ent|
|00000840| 72 79 20 23 5b 28 61 72 | 67 29 20 22 08 83 08 00 |ry #[(ar|g) "....|
|00000850| c1 82 09 00 c2 1b c4 c5 | c6 0e 07 c8 c9 ca 21 cb |........|......!.|
|00000860| ca 23 23 0e 5c 66 5c 22 | 29 87 22 20 5b 65 75 72 |.##.\f\"|)." [eur|
|00000870| 6f 70 65 61 6e 2d 63 61 | 6c 65 6e 64 61 72 2d 73 |opean-ca|lendar-s|
|00000880| 74 79 6c 65 20 28 64 61 | 79 20 22 20 22 20 6d 6f |tyle (da|y " " mo|
|00000890| 6e 74 68 20 22 20 22 20 | 79 65 61 72 29 20 28 6d |nth " " |year) (m|
|000008a0| 6f 6e 74 68 20 22 20 22 | 20 64 61 79 20 22 20 22 |onth " "| day " "|
|000008b0| 20 79 65 61 72 29 20 63 | 61 6c 65 6e 64 61 72 2d | year) c|alendar-|
|000008c0| 64 61 74 65 2d 64 69 73 | 70 6c 61 79 2d 66 6f 72 |date-dis|play-for|
|000008d0| 6d 20 6d 61 6b 65 2d 64 | 69 61 72 79 2d 65 6e 74 |m make-d|iary-ent|
|000008e0| 72 79 20 66 6f 72 6d 61 | 74 20 22 25 73 28 64 69 |ry forma|t "%s(di|
|000008f0| 61 72 79 2d 61 6e 6e 69 | 76 65 72 73 61 72 79 20 |ary-anni|versary |
|00000900| 25 73 29 22 20 73 65 78 | 70 2d 64 69 61 72 79 2d |%s)" sex|p-diary-|
|00000910| 65 6e 74 72 79 2d 73 79 | 6d 62 6f 6c 20 63 61 6c |entry-sy|mbol cal|
|00000920| 65 6e 64 61 72 2d 64 61 | 74 65 2d 73 74 72 69 6e |endar-da|te-strin|
|00000930| 67 20 63 61 6c 65 6e 64 | 61 72 2d 63 75 72 73 6f |g calend|ar-curso|
|00000940| 72 2d 74 6f 2d 64 61 74 | 65 20 74 20 6e 69 6c 20 |r-to-dat|e t nil |
|00000950| 61 72 67 5d 20 38 20 22 | 5c 0a 49 6e 73 65 72 74 |arg] 8 "|\.Insert|
|00000960| 20 61 6e 20 61 6e 6e 69 | 76 65 72 73 61 72 79 20 | an anni|versary |
|00000970| 64 69 61 72 79 20 65 6e | 74 72 79 20 66 6f 72 20 |diary en|try for |
|00000980| 74 68 65 20 64 61 74 65 | 20 67 69 76 65 6e 20 62 |the date| given b|
|00000990| 79 20 70 6f 69 6e 74 2e | 0a 50 72 65 66 69 78 20 |y point.|.Prefix |
|000009a0| 61 72 67 20 77 69 6c 6c | 20 6d 61 6b 65 20 74 68 |arg will| make th|
|000009b0| 65 20 65 6e 74 72 79 20 | 6e 6f 6e 6d 61 72 6b 69 |e entry |nonmarki|
|000009c0| 6e 67 2e 22 20 22 50 22 | 5d 29 0a 28 64 65 66 61 |ng." "P"|]).(defa|
|000009d0| 6c 69 61 73 20 27 69 6e | 73 65 72 74 2d 62 6c 6f |lias 'in|sert-blo|
|000009e0| 63 6b 2d 64 69 61 72 79 | 2d 65 6e 74 72 79 20 23 |ck-diary|-entry #|
|000009f0| 5b 28 61 72 67 29 20 22 | 08 83 08 00 c1 82 09 00 |[(arg) "|........|
|00000a00| c2 1b c4 c5 21 1e 06 0e | 07 40 86 18 00 c8 c9 21 |....!...|.@.....!|
|00000a10| 1e 5c 6e cb 1e 5c 66 cb | 1e 0d 0e 5c 6e 41 41 40 |.\n..\f.|...\nAA@|
|00000a20| 53 1e 0e 0e 5c 6e 40 1e | 0f 0e 5c 6e 41 40 1e 10 |S...\n@.|..\nA@..|
|00000a30| 0e 5c 6e 41 41 40 1e 11 | 0e 10 0e 0f 53 d2 5f 5c |.\nAA@..|....S._\|
|00000a40| 5c 1e 13 0e 0f d4 56 83 | 78 00 0e 13 0e 0f d5 5f |\.....V.|x......_|
|00000a50| d6 5c 5c d7 a5 5a 16 13 | 0e 11 d5 a6 d8 55 83 78 |.\\..Z..|.....U.x|
|00000a60| 00 0e 11 d9 a6 d8 55 83 | 73 00 0e 11 da a6 d8 55 |......U.|s......U|
|00000a70| 83 78 00 0e 13 54 16 13 | 0e 13 2c 0e 0e db 5f 0e |.x...T..|..,..._.|
|00000a80| 0e d5 a5 0e 0e d9 a5 5b | 0e 0e da a5 5c 5c 5c 5c |.......[|....\\\\|
|00000a90| 5c 5c 5c 5c 29 0e 06 41 | 41 40 53 1e 0e 0e 06 40 |\\\\)..A|A@S....@|
|00000aa0| 1e 0f 0e 06 41 40 1e 10 | 0e 06 41 41 40 1e 11 0e |....A@..|..AA@...|
|00000ab0| 10 0e 0f 53 d2 5f 5c 5c | 1e 13 0e 0f d4 56 83 e9 |...S._\\|.....V..|
|00000ac0| 00 0e 13 0e 0f d5 5f d6 | 5c 5c d7 a5 5a 16 13 0e |......_.|\\..Z...|
|00000ad0| 11 d5 a6 d8 55 83 e9 00 | 0e 11 d9 a6 d8 55 83 e4 |....U...|.....U..|
|00000ae0| 00 0e 11 da a6 d8 55 83 | e9 00 0e 13 54 16 13 0e |......U.|....T...|
|00000af0| 13 2c 0e 0e db 5f 0e 0e | d5 a5 0e 0e d9 a5 5b 0e |.,..._..|......[.|
|00000b00| 0e da a5 5c 5c 5c 5c 5c | 5c 5c 5c 29 57 83 11 01 |...\\\\\|\\\)W...|
|00000b10| 0e 5c 6e 16 5c 66 0e 06 | 16 0d 82 19 01 0e 06 16 |.\n.\f..|........|
|00000b20| 5c 66 0e 5c 6e 16 0d dc | dd de 0e 1f e0 0e 5c 66 |\f.\n...|......\f|
|00000b30| cb c5 23 e0 0e 0d cb c5 | 23 24 0e 21 5c 22 2d 87 |..#.....|#$.!\"-.|
|00000b40| 22 20 5b 65 75 72 6f 70 | 65 61 6e 2d 63 61 6c 65 |" [europ|ean-cale|
|00000b50| 6e 64 61 72 2d 73 74 79 | 6c 65 20 28 64 61 79 20 |ndar-sty|le (day |
|00000b60| 22 20 22 20 6d 6f 6e 74 | 68 20 22 20 22 20 79 65 |" " mont|h " " ye|
|00000b70| 61 72 29 20 28 6d 6f 6e | 74 68 20 22 20 22 20 64 |ar) (mon|th " " d|
|00000b80| 61 79 20 22 20 22 20 79 | 65 61 72 29 20 63 61 6c |ay " " y|ear) cal|
|00000b90| 65 6e 64 61 72 2d 64 61 | 74 65 2d 64 69 73 70 6c |endar-da|te-displ|
|00000ba0| 61 79 2d 66 6f 72 6d 20 | 63 61 6c 65 6e 64 61 72 |ay-form |calendar|
|00000bb0| 2d 63 75 72 73 6f 72 2d | 74 6f 2d 64 61 74 65 20 |-cursor-|to-date |
|00000bc0| 74 20 63 75 72 73 6f 72 | 20 63 61 6c 65 6e 64 61 |t cursor| calenda|
|00000bd0| 72 2d 6d 61 72 6b 2d 72 | 69 6e 67 20 65 72 72 6f |r-mark-r|ing erro|
|00000be0| 72 20 22 4e 6f 20 6d 61 | 72 6b 20 73 65 74 20 69 |r "No ma|rk set i|
|00000bf0| 6e 20 74 68 69 73 20 62 | 75 66 66 65 72 22 20 6d |n this b|uffer" m|
|00000c00| 61 72 6b 20 6e 69 6c 20 | 73 74 61 72 74 20 65 6e |ark nil |start en|
|00000c10| 64 20 70 72 69 6f 72 2d | 79 65 61 72 73 20 6d 6f |d prior-|years mo|
|00000c20| 6e 74 68 20 64 61 79 20 | 79 65 61 72 20 33 31 20 |nth day |year 31 |
|00000c30| 64 61 79 2d 6f 66 2d 79 | 65 61 72 20 32 20 34 20 |day-of-y|ear 2 4 |
|00000c40| 32 33 20 31 30 20 30 20 | 31 30 30 20 34 30 30 20 |23 10 0 |100 400 |
|00000c50| 33 36 35 20 6d 61 6b 65 | 2d 64 69 61 72 79 2d 65 |365 make|-diary-e|
|00000c60| 6e 74 72 79 20 66 6f 72 | 6d 61 74 20 22 25 73 28 |ntry for|mat "%s(|
|00000c70| 64 69 61 72 79 2d 62 6c | 6f 63 6b 20 25 73 20 25 |diary-bl|ock %s %|
|00000c80| 73 29 22 20 73 65 78 70 | 2d 64 69 61 72 79 2d 65 |s)" sexp|-diary-e|
|00000c90| 6e 74 72 79 2d 73 79 6d | 62 6f 6c 20 63 61 6c 65 |ntry-sym|bol cale|
|00000ca0| 6e 64 61 72 2d 64 61 74 | 65 2d 73 74 72 69 6e 67 |ndar-dat|e-string|
|00000cb0| 20 61 72 67 5d 20 39 20 | 22 5c 0a 49 6e 73 65 72 | arg] 9 |"\.Inser|
|00000cc0| 74 20 61 20 62 6c 6f 63 | 6b 20 64 69 61 72 79 20 |t a bloc|k diary |
|00000cd0| 65 6e 74 72 79 20 66 6f | 72 20 74 68 65 20 64 61 |entry fo|r the da|
|00000ce0| 79 73 20 62 65 74 77 65 | 65 6e 20 74 68 65 20 70 |ys betwe|en the p|
|00000cf0| 6f 69 6e 74 20 61 6e 64 | 20 6d 61 72 6b 65 64 20 |oint and| marked |
|00000d00| 64 61 74 65 2e 0a 50 72 | 65 66 69 78 20 61 72 67 |date..Pr|efix arg|
|00000d10| 20 77 69 6c 6c 20 6d 61 | 6b 65 20 74 68 65 20 65 | will ma|ke the e|
|00000d20| 6e 74 72 79 20 6e 6f 6e | 6d 61 72 6b 69 6e 67 2e |ntry non|marking.|
|00000d30| 22 20 22 50 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |" "P"]).|(defalia|
|00000d40| 73 20 27 69 6e 73 65 72 | 74 2d 63 79 63 6c 69 63 |s 'inser|t-cyclic|
|00000d50| 2d 64 69 61 72 79 2d 65 | 6e 74 72 79 20 23 5b 28 |-diary-e|ntry #[(|
|00000d60| 61 72 67 29 20 22 08 83 | 08 00 c1 82 09 00 c2 1b |arg) "..|........|
|00000d70| c4 c5 c6 0e 07 c8 c9 ca | 5c 22 cb cc cd 21 ce cd |........|\"...!..|
|00000d80| 23 24 0e 0f 5c 22 29 87 | 22 20 5b 65 75 72 6f 70 |#$..\").|" [europ|
|00000d90| 65 61 6e 2d 63 61 6c 65 | 6e 64 61 72 2d 73 74 79 |ean-cale|ndar-sty|
|00000da0| 6c 65 20 28 64 61 79 20 | 22 20 22 20 6d 6f 6e 74 |le (day |" " mont|
|00000db0| 68 20 22 20 22 20 79 65 | 61 72 29 20 28 6d 6f 6e |h " " ye|ar) (mon|
|00000dc0| 74 68 20 22 20 22 20 64 | 61 79 20 22 20 22 20 79 |th " " d|ay " " y|
|00000dd0| 65 61 72 29 20 63 61 6c | 65 6e 64 61 72 2d 64 61 |ear) cal|endar-da|
|00000de0| 74 65 2d 64 69 73 70 6c | 61 79 2d 66 6f 72 6d 20 |te-displ|ay-form |
|00000df0| 6d 61 6b 65 2d 64 69 61 | 72 79 2d 65 6e 74 72 79 |make-dia|ry-entry|
|00000e00| 20 66 6f 72 6d 61 74 20 | 22 25 73 28 64 69 61 72 | format |"%s(diar|
|00000e10| 79 2d 63 79 63 6c 69 63 | 20 25 64 20 25 73 29 22 |y-cyclic| %d %s)"|
|00000e20| 20 73 65 78 70 2d 64 69 | 61 72 79 2d 65 6e 74 72 | sexp-di|ary-entr|
|00000e30| 79 2d 73 79 6d 62 6f 6c | 20 63 61 6c 65 6e 64 61 |y-symbol| calenda|
|00000e40| 72 2d 72 65 61 64 20 22 | 52 65 70 65 61 74 20 65 |r-read "|Repeat e|
|00000e50| 76 65 72 79 20 68 6f 77 | 20 6d 61 6e 79 20 64 61 |very how| many da|
|00000e60| 79 73 3a 20 22 20 28 6c | 61 6d 62 64 61 20 28 78 |ys: " (l|ambda (x|
|00000e70| 29 20 28 3e 20 78 20 30 | 29 29 20 63 61 6c 65 6e |) (> x 0|)) calen|
|00000e80| 64 61 72 2d 64 61 74 65 | 2d 73 74 72 69 6e 67 20 |dar-date|-string |
|00000e90| 63 61 6c 65 6e 64 61 72 | 2d 63 75 72 73 6f 72 2d |calendar|-cursor-|
|00000ea0| 74 6f 2d 64 61 74 65 20 | 74 20 6e 69 6c 20 61 72 |to-date |t nil ar|
|00000eb0| 67 5d 20 39 20 22 5c 0a | 49 6e 73 65 72 74 20 61 |g] 9 "\.|Insert a|
|00000ec0| 20 63 79 63 6c 69 63 20 | 64 69 61 72 79 20 65 6e | cyclic |diary en|
|00000ed0| 74 72 79 20 73 74 61 72 | 74 69 6e 67 20 61 74 20 |try star|ting at |
|00000ee0| 74 68 65 20 64 61 74 65 | 20 67 69 76 65 6e 20 62 |the date| given b|
|00000ef0| 79 20 70 6f 69 6e 74 2e | 0a 50 72 65 66 69 78 20 |y point.|.Prefix |
|00000f00| 61 72 67 20 77 69 6c 6c | 20 6d 61 6b 65 20 74 68 |arg will| make th|
|00000f10| 65 20 65 6e 74 72 79 20 | 6e 6f 6e 6d 61 72 6b 69 |e entry |nonmarki|
|00000f20| 6e 67 2e 22 20 22 50 22 | 5d 29 0a 28 64 65 66 61 |ng." "P"|]).(defa|
|00000f30| 6c 69 61 73 20 27 69 6e | 73 65 72 74 2d 68 65 62 |lias 'in|sert-heb|
|00000f40| 72 65 77 2d 64 69 61 72 | 79 2d 65 6e 74 72 79 20 |rew-diar|y-entry |
|00000f50| 23 5b 28 61 72 67 29 20 | 22 08 19 c2 0b c4 c5 c6 |#[(arg) |".......|
|00000f60| c7 21 41 41 40 53 1e 08 | c6 c7 21 40 1e 09 c6 c7 |.!AA@S..|..!@....|
|00000f70| 21 41 40 1e 5c 6e c6 c7 | 21 41 41 40 1e 0b 0e 5c |!A@.\n..|!AA@...\|
|00000f80| 6e 0e 09 53 cc 5f 5c 5c | 1e 0d 0e 09 ce 56 83 62 |n..S._\\|.....V.b|
|00000f90| 00 0e 0d 0e 09 cf 5f d0 | 5c 5c d1 a5 5a 16 0d 0e |......_.|\\..Z...|
|00000fa0| 0b cf a6 d2 55 83 62 00 | 0e 0b d3 a6 d2 55 83 5d |....U.b.|.....U.]|
|00000fb0| 00 0e 0b d4 a6 d2 55 83 | 62 00 0e 0d 54 16 0d 0e |......U.|b...T...|
|00000fc0| 0d 2c 0e 08 d5 5f 0e 08 | cf a5 0e 08 d3 a5 5b 0e |.,..._..|......[.|
|00000fd0| 08 d4 a5 5c 5c 5c 5c 5c | 5c 5c 5c 29 21 d6 c7 23 |...\\\\\|\\\)!..#|
|00000fe0| 50 0e 17 5c 22 29 87 22 | 20 5b 63 61 6c 65 6e 64 |P..\")."| [calend|
|00000ff0| 61 72 2d 68 65 62 72 65 | 77 2d 6d 6f 6e 74 68 2d |ar-hebre|w-month-|
|00001000| 6e 61 6d 65 2d 61 72 72 | 61 79 2d 6c 65 61 70 2d |name-arr|ay-leap-|
|00001010| 79 65 61 72 20 63 61 6c | 65 6e 64 61 72 2d 6d 6f |year cal|endar-mo|
|00001020| 6e 74 68 2d 6e 61 6d 65 | 2d 61 72 72 61 79 20 6d |nth-name|-array m|
|00001030| 61 6b 65 2d 64 69 61 72 | 79 2d 65 6e 74 72 79 20 |ake-diar|y-entry |
|00001040| 68 65 62 72 65 77 2d 64 | 69 61 72 79 2d 65 6e 74 |hebrew-d|iary-ent|
|00001050| 72 79 2d 73 79 6d 62 6f | 6c 20 63 61 6c 65 6e 64 |ry-symbo|l calend|
|00001060| 61 72 2d 64 61 74 65 2d | 73 74 72 69 6e 67 20 63 |ar-date-|string c|
|00001070| 61 6c 65 6e 64 61 72 2d | 68 65 62 72 65 77 2d 66 |alendar-|hebrew-f|
|00001080| 72 6f 6d 2d 61 62 73 6f | 6c 75 74 65 20 63 61 6c |rom-abso|lute cal|
|00001090| 65 6e 64 61 72 2d 63 75 | 72 73 6f 72 2d 74 6f 2d |endar-cu|rsor-to-|
|000010a0| 64 61 74 65 20 74 20 70 | 72 69 6f 72 2d 79 65 61 |date t p|rior-yea|
|000010b0| 72 73 20 6d 6f 6e 74 68 | 20 64 61 79 20 79 65 61 |rs month| day yea|
|000010c0| 72 20 33 31 20 64 61 79 | 2d 6f 66 2d 79 65 61 72 |r 31 day|-of-year|
|000010d0| 20 32 20 34 20 32 33 20 | 31 30 20 30 20 31 30 30 | 2 4 23 |10 0 100|
|000010e0| 20 34 30 30 20 33 36 35 | 20 6e 69 6c 20 61 72 67 | 400 365| nil arg|
|000010f0| 5d 20 31 30 20 22 5c 0a | 49 6e 73 65 72 74 20 61 |] 10 "\.|Insert a|
|00001100| 20 64 69 61 72 79 20 65 | 6e 74 72 79 2e 0a 46 6f | diary e|ntry..Fo|
|00001110| 72 20 74 68 65 20 48 65 | 62 72 65 77 20 64 61 74 |r the He|brew dat|
|00001120| 65 20 63 6f 72 72 65 73 | 70 6f 6e 64 69 6e 67 20 |e corres|ponding |
|00001130| 74 6f 20 74 68 65 20 64 | 61 74 65 20 69 6e 64 69 |to the d|ate indi|
|00001140| 63 61 74 65 64 20 62 79 | 20 70 6f 69 6e 74 2e 0a |cated by| point..|
|00001150| 50 72 65 66 69 78 20 61 | 72 67 20 77 69 6c 6c 20 |Prefix a|rg will |
|00001160| 6d 61 6b 65 20 74 68 65 | 20 65 6e 74 72 79 20 6e |make the| entry n|
|00001170| 6f 6e 6d 61 72 6b 69 6e | 67 2e 22 20 22 50 22 5d |onmarkin|g." "P"]|
|00001180| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 69 6e 73 |).(defal|ias 'ins|
|00001190| 65 72 74 2d 6d 6f 6e 74 | 68 6c 79 2d 68 65 62 72 |ert-mont|hly-hebr|
|000011a0| 65 77 2d 64 69 61 72 79 | 2d 65 6e 74 72 79 20 23 |ew-diary|-entry #|
|000011b0| 5b 28 61 72 67 29 20 22 | 08 83 08 00 c1 82 09 00 |[(arg) "|........|
|000011c0| c2 1b 5c 66 1d c6 0e 07 | c8 c9 ca cb 21 41 41 40 |..\f....|....!AA@|
|000011d0| 53 1e 5c 66 ca cb 21 40 | 1e 0d ca cb 21 41 40 1e |S.\f..!@|....!A@.|
|000011e0| 0e ca cb 21 41 41 40 1e | 0f 0e 0e 0e 0d 53 d0 5f |...!AA@.|.....S._|
|000011f0| 5c 5c 1e 11 0e 0d d2 56 | 83 6d 00 0e 11 0e 0d d3 |\\.....V|.m......|
|00001200| 5f d4 5c 5c d5 a5 5a 16 | 11 0e 0f d3 a6 d6 55 83 |_.\\..Z.|......U.|
|00001210| 6d 00 0e 0f d7 a6 d6 55 | 83 68 00 0e 0f d8 a6 d6 |m......U|.h......|
|00001220| 55 83 6d 00 0e 11 54 16 | 11 0e 11 2c 0e 5c 66 d9 |U.m...T.|...,.\f.|
|00001230| 5f 0e 5c 66 d3 a5 0e 5c | 66 d7 a5 5b 0e 5c 66 d8 |_.\f...\|f..[.\f.|
|00001240| a5 5c 5c 5c 5c 5c 5c 5c | 5c 29 21 21 50 0e 1a 5c |.\\\\\\\|\)!!P..\|
|00001250| 22 2a 87 22 20 5b 65 75 | 72 6f 70 65 61 6e 2d 63 |"*." [eu|ropean-c|
|00001260| 61 6c 65 6e 64 61 72 2d | 73 74 79 6c 65 20 28 64 |alendar-|style (d|
|00001270| 61 79 20 22 20 2a 20 22 | 29 20 28 22 2a 20 22 20 |ay " * "|) ("* " |
|00001280| 64 61 79 29 20 63 61 6c | 65 6e 64 61 72 2d 64 61 |day) cal|endar-da|
|00001290| 74 65 2d 64 69 73 70 6c | 61 79 2d 66 6f 72 6d 20 |te-displ|ay-form |
|000012a0| 63 61 6c 65 6e 64 61 72 | 2d 68 65 62 72 65 77 2d |calendar|-hebrew-|
|000012b0| 6d 6f 6e 74 68 2d 6e 61 | 6d 65 2d 61 72 72 61 79 |month-na|me-array|
|000012c0| 2d 6c 65 61 70 2d 79 65 | 61 72 20 63 61 6c 65 6e |-leap-ye|ar calen|
|000012d0| 64 61 72 2d 6d 6f 6e 74 | 68 2d 6e 61 6d 65 2d 61 |dar-mont|h-name-a|
|000012e0| 72 72 61 79 20 6d 61 6b | 65 2d 64 69 61 72 79 2d |rray mak|e-diary-|
|000012f0| 65 6e 74 72 79 20 68 65 | 62 72 65 77 2d 64 69 61 |entry he|brew-dia|
|00001300| 72 79 2d 65 6e 74 72 79 | 2d 73 79 6d 62 6f 6c 20 |ry-entry|-symbol |
|00001310| 63 61 6c 65 6e 64 61 72 | 2d 64 61 74 65 2d 73 74 |calendar|-date-st|
|00001320| 72 69 6e 67 20 63 61 6c | 65 6e 64 61 72 2d 68 65 |ring cal|endar-he|
|00001330| 62 72 65 77 2d 66 72 6f | 6d 2d 61 62 73 6f 6c 75 |brew-fro|m-absolu|
|00001340| 74 65 20 63 61 6c 65 6e | 64 61 72 2d 63 75 72 73 |te calen|dar-curs|
|00001350| 6f 72 2d 74 6f 2d 64 61 | 74 65 20 74 20 70 72 69 |or-to-da|te t pri|
|00001360| 6f 72 2d 79 65 61 72 73 | 20 6d 6f 6e 74 68 20 64 |or-years| month d|
|00001370| 61 79 20 79 65 61 72 20 | 33 31 20 64 61 79 2d 6f |ay year |31 day-o|
|00001380| 66 2d 79 65 61 72 20 32 | 20 34 20 32 33 20 31 30 |f-year 2| 4 23 10|
|00001390| 20 30 20 31 30 30 20 34 | 30 30 20 33 36 35 20 61 | 0 100 4|00 365 a|
|000013a0| 72 67 5d 20 31 30 20 22 | 5c 0a 49 6e 73 65 72 74 |rg] 10 "|\.Insert|
|000013b0| 20 61 20 6d 6f 6e 74 68 | 6c 79 20 64 69 61 72 79 | a month|ly diary|
|000013c0| 20 65 6e 74 72 79 2e 0a | 46 6f 72 20 74 68 65 20 | entry..|For the |
|000013d0| 64 61 79 20 6f 66 20 74 | 68 65 20 48 65 62 72 65 |day of t|he Hebre|
|000013e0| 77 20 6d 6f 6e 74 68 20 | 63 6f 72 72 65 73 70 6f |w month |correspo|
|000013f0| 6e 64 69 6e 67 20 74 6f | 20 74 68 65 20 64 61 74 |nding to| the dat|
|00001400| 65 20 69 6e 64 69 63 61 | 74 65 64 20 62 79 20 70 |e indica|ted by p|
|00001410| 6f 69 6e 74 2e 0a 50 72 | 65 66 69 78 20 61 72 67 |oint..Pr|efix arg|
|00001420| 20 77 69 6c 6c 20 6d 61 | 6b 65 20 74 68 65 20 65 | will ma|ke the e|
|00001430| 6e 74 72 79 20 6e 6f 6e | 6d 61 72 6b 69 6e 67 2e |ntry non|marking.|
|00001440| 22 20 22 50 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |" "P"]).|(defalia|
|00001450| 73 20 27 69 6e 73 65 72 | 74 2d 79 65 61 72 6c 79 |s 'inser|t-yearly|
|00001460| 2d 68 65 62 72 65 77 2d | 64 69 61 72 79 2d 65 6e |-hebrew-|diary-en|
|00001470| 74 72 79 20 23 5b 28 61 | 72 67 29 20 22 08 83 08 |try #[(a|rg) "...|
|00001480| 00 c1 82 09 00 c2 1b 5c | 66 1d c6 0e 07 c8 c9 ca |.......\|f.......|
|00001490| cb 21 41 41 40 53 1e 5c | 66 ca cb 21 40 1e 0d ca |.!AA@S.\|f..!@...|
|000014a0| cb 21 41 40 1e 0e ca cb | 21 41 41 40 1e 0f 0e 0e |.!A@....|!AA@....|
|000014b0| 0e 0d 53 d0 5f 5c 5c 1e | 11 0e 0d d2 56 83 6d 00 |..S._\\.|....V.m.|
|000014c0| 0e 11 0e 0d d3 5f d4 5c | 5c d5 a5 5a 16 11 0e 0f |....._.\|\..Z....|
|000014d0| d3 a6 d6 55 83 6d 00 0e | 0f d7 a6 d6 55 83 68 00 |...U.m..|....U.h.|
|000014e0| 0e 0f d8 a6 d6 55 83 6d | 00 0e 11 54 16 11 0e 11 |.....U.m|...T....|
|000014f0| 2c 0e 5c 66 d9 5f 0e 5c | 66 d3 a5 0e 5c 66 d7 a5 |,.\f._.\|f...\f..|
|00001500| 5b 0e 5c 66 d8 a5 5c 5c | 5c 5c 5c 5c 5c 5c 29 21 |[.\f..\\|\\\\\\)!|
|00001510| 21 50 0e 1a 5c 22 2a 87 | 22 20 5b 65 75 72 6f 70 |!P..\"*.|" [europ|
|00001520| 65 61 6e 2d 63 61 6c 65 | 6e 64 61 72 2d 73 74 79 |ean-cale|ndar-sty|
|00001530| 6c 65 20 28 64 61 79 20 | 22 20 22 20 6d 6f 6e 74 |le (day |" " mont|
|00001540| 68 6e 61 6d 65 29 20 28 | 6d 6f 6e 74 68 6e 61 6d |hname) (|monthnam|
|00001550| 65 20 22 20 22 20 64 61 | 79 29 20 63 61 6c 65 6e |e " " da|y) calen|
|00001560| 64 61 72 2d 64 61 74 65 | 2d 64 69 73 70 6c 61 79 |dar-date|-display|
|00001570| 2d 66 6f 72 6d 20 63 61 | 6c 65 6e 64 61 72 2d 68 |-form ca|lendar-h|
|00001580| 65 62 72 65 77 2d 6d 6f | 6e 74 68 2d 6e 61 6d 65 |ebrew-mo|nth-name|
|00001590| 2d 61 72 72 61 79 2d 6c | 65 61 70 2d 79 65 61 72 |-array-l|eap-year|
|000015a0| 20 63 61 6c 65 6e 64 61 | 72 2d 6d 6f 6e 74 68 2d | calenda|r-month-|
|000015b0| 6e 61 6d 65 2d 61 72 72 | 61 79 20 6d 61 6b 65 2d |name-arr|ay make-|
|000015c0| 64 69 61 72 79 2d 65 6e | 74 72 79 20 68 65 62 72 |diary-en|try hebr|
|000015d0| 65 77 2d 64 69 61 72 79 | 2d 65 6e 74 72 79 2d 73 |ew-diary|-entry-s|
|000015e0| 79 6d 62 6f 6c 20 63 61 | 6c 65 6e 64 61 72 2d 64 |ymbol ca|lendar-d|
|000015f0| 61 74 65 2d 73 74 72 69 | 6e 67 20 63 61 6c 65 6e |ate-stri|ng calen|
|00001600| 64 61 72 2d 68 65 62 72 | 65 77 2d 66 72 6f 6d 2d |dar-hebr|ew-from-|
|00001610| 61 62 73 6f 6c 75 74 65 | 20 63 61 6c 65 6e 64 61 |absolute| calenda|
|00001620| 72 2d 63 75 72 73 6f 72 | 2d 74 6f 2d 64 61 74 65 |r-cursor|-to-date|
|00001630| 20 74 20 70 72 69 6f 72 | 2d 79 65 61 72 73 20 6d | t prior|-years m|
|00001640| 6f 6e 74 68 20 64 61 79 | 20 79 65 61 72 20 33 31 |onth day| year 31|
|00001650| 20 64 61 79 2d 6f 66 2d | 79 65 61 72 20 32 20 34 | day-of-|year 2 4|
|00001660| 20 32 33 20 31 30 20 30 | 20 31 30 30 20 34 30 30 | 23 10 0| 100 400|
|00001670| 20 33 36 35 20 61 72 67 | 5d 20 31 30 20 22 5c 0a | 365 arg|] 10 "\.|
|00001680| 49 6e 73 65 72 74 20 61 | 6e 20 61 6e 6e 75 61 6c |Insert a|n annual|
|00001690| 20 64 69 61 72 79 20 65 | 6e 74 72 79 2e 0a 46 6f | diary e|ntry..Fo|
|000016a0| 72 20 74 68 65 20 64 61 | 79 20 6f 66 20 74 68 65 |r the da|y of the|
|000016b0| 20 48 65 62 72 65 77 20 | 79 65 61 72 20 63 6f 72 | Hebrew |year cor|
|000016c0| 72 65 73 70 6f 6e 64 69 | 6e 67 20 74 6f 20 74 68 |respondi|ng to th|
|000016d0| 65 20 64 61 74 65 20 69 | 6e 64 69 63 61 74 65 64 |e date i|ndicated|
|000016e0| 20 62 79 20 70 6f 69 6e | 74 2e 0a 50 72 65 66 69 | by poin|t..Prefi|
|000016f0| 78 20 61 72 67 20 77 69 | 6c 6c 20 6d 61 6b 65 20 |x arg wi|ll make |
|00001700| 74 68 65 20 65 6e 74 72 | 79 20 6e 6f 6e 6d 61 72 |the entr|y nonmar|
|00001710| 6b 69 6e 67 2e 22 20 22 | 50 22 5d 29 0a 28 64 65 |king." "|P"]).(de|
|00001720| 66 61 6c 69 61 73 20 27 | 69 6e 73 65 72 74 2d 69 |falias '|insert-i|
|00001730| 73 6c 61 6d 69 63 2d 64 | 69 61 72 79 2d 65 6e 74 |slamic-d|iary-ent|
|00001740| 72 79 20 23 5b 28 61 72 | 67 29 20 22 08 19 c2 0b |ry #[(ar|g) "....|
|00001750| c4 c5 c6 c7 21 41 41 40 | 53 1e 08 c6 c7 21 40 1e |....!AA@|S....!@.|
|00001760| 09 c6 c7 21 41 40 1e 5c | 6e c6 c7 21 41 41 40 1e |...!A@.\|n..!AA@.|
|00001770| 0b 0e 5c 6e 0e 09 53 cc | 5f 5c 5c 1e 0d 0e 09 ce |..\n..S.|_\\.....|
|00001780| 56 83 62 00 0e 0d 0e 09 | cf 5f d0 5c 5c d1 a5 5a |V.b.....|._.\\..Z|
|00001790| 16 0d 0e 0b cf a6 d2 55 | 83 62 00 0e 0b d3 a6 d2 |.......U|.b......|
|000017a0| 55 83 5d 00 0e 0b d4 a6 | d2 55 83 62 00 0e 0d 54 |U.].....|.U.b...T|
|000017b0| 16 0d 0e 0d 2c 0e 08 d5 | 5f 0e 08 cf a5 0e 08 d3 |....,...|_.......|
|000017c0| a5 5b 0e 08 d4 a5 5c 5c | 5c 5c 5c 5c 5c 5c 29 21 |.[....\\|\\\\\\)!|
|000017d0| d6 c7 23 50 0e 17 5c 22 | 29 87 22 20 5b 63 61 6c |..#P..\"|)." [cal|
|000017e0| 65 6e 64 61 72 2d 69 73 | 6c 61 6d 69 63 2d 6d 6f |endar-is|lamic-mo|
|000017f0| 6e 74 68 2d 6e 61 6d 65 | 2d 61 72 72 61 79 20 63 |nth-name|-array c|
|00001800| 61 6c 65 6e 64 61 72 2d | 6d 6f 6e 74 68 2d 6e 61 |alendar-|month-na|
|00001810| 6d 65 2d 61 72 72 61 79 | 20 6d 61 6b 65 2d 64 69 |me-array| make-di|
|00001820| 61 72 79 2d 65 6e 74 72 | 79 20 69 73 6c 61 6d 69 |ary-entr|y islami|
|00001830| 63 2d 64 69 61 72 79 2d | 65 6e 74 72 79 2d 73 79 |c-diary-|entry-sy|
|00001840| 6d 62 6f 6c 20 63 61 6c | 65 6e 64 61 72 2d 64 61 |mbol cal|endar-da|
|00001850| 74 65 2d 73 74 72 69 6e | 67 20 63 61 6c 65 6e 64 |te-strin|g calend|
|00001860| 61 72 2d 69 73 6c 61 6d | 69 63 2d 66 72 6f 6d 2d |ar-islam|ic-from-|
|00001870| 61 62 73 6f 6c 75 74 65 | 20 63 61 6c 65 6e 64 61 |absolute| calenda|
|00001880| 72 2d 63 75 72 73 6f 72 | 2d 74 6f 2d 64 61 74 65 |r-cursor|-to-date|
|00001890| 20 74 20 70 72 69 6f 72 | 2d 79 65 61 72 73 20 6d | t prior|-years m|
|000018a0| 6f 6e 74 68 20 64 61 79 | 20 79 65 61 72 20 33 31 |onth day| year 31|
|000018b0| 20 64 61 79 2d 6f 66 2d | 79 65 61 72 20 32 20 34 | day-of-|year 2 4|
|000018c0| 20 32 33 20 31 30 20 30 | 20 31 30 30 20 34 30 30 | 23 10 0| 100 400|
|000018d0| 20 33 36 35 20 6e 69 6c | 20 61 72 67 5d 20 31 30 | 365 nil| arg] 10|
|000018e0| 20 22 5c 0a 49 6e 73 65 | 72 74 20 61 20 64 69 61 | "\.Inse|rt a dia|
|000018f0| 72 79 20 65 6e 74 72 79 | 2e 0a 46 6f 72 20 74 68 |ry entry|..For th|
|00001900| 65 20 49 73 6c 61 6d 69 | 63 20 64 61 74 65 20 63 |e Islami|c date c|
|00001910| 6f 72 72 65 73 70 6f 6e | 64 69 6e 67 20 74 6f 20 |orrespon|ding to |
|00001920| 74 68 65 20 64 61 74 65 | 20 69 6e 64 69 63 61 74 |the date| indicat|
|00001930| 65 64 20 62 79 20 70 6f | 69 6e 74 2e 0a 50 72 65 |ed by po|int..Pre|
|00001940| 66 69 78 20 61 72 67 20 | 77 69 6c 6c 20 6d 61 6b |fix arg |will mak|
|00001950| 65 20 74 68 65 20 65 6e | 74 72 79 20 6e 6f 6e 6d |e the en|try nonm|
|00001960| 61 72 6b 69 6e 67 2e 22 | 20 22 50 22 5d 29 0a 28 |arking."| "P"]).(|
|00001970| 64 65 66 61 6c 69 61 73 | 20 27 69 6e 73 65 72 74 |defalias| 'insert|
|00001980| 2d 6d 6f 6e 74 68 6c 79 | 2d 69 73 6c 61 6d 69 63 |-monthly|-islamic|
|00001990| 2d 64 69 61 72 79 2d 65 | 6e 74 72 79 20 23 5b 28 |-diary-e|ntry #[(|
|000019a0| 61 72 67 29 20 22 08 83 | 08 00 c1 82 09 00 c2 1b |arg) "..|........|
|000019b0| 5c 66 1d c6 0e 07 c8 c9 | ca cb 21 41 41 40 53 1e |\f......|..!AA@S.|
|000019c0| 5c 66 ca cb 21 40 1e 0d | ca cb 21 41 40 1e 0e ca |\f..!@..|..!A@...|
|000019d0| cb 21 41 41 40 1e 0f 0e | 0e 0e 0d 53 d0 5f 5c 5c |.!AA@...|...S._\\|
|000019e0| 1e 11 0e 0d d2 56 83 6d | 00 0e 11 0e 0d d3 5f d4 |.....V.m|......_.|
|000019f0| 5c 5c d5 a5 5a 16 11 0e | 0f d3 a6 d6 55 83 6d 00 |\\..Z...|....U.m.|
|00001a00| 0e 0f d7 a6 d6 55 83 68 | 00 0e 0f d8 a6 d6 55 83 |.....U.h|......U.|
|00001a10| 6d 00 0e 11 54 16 11 0e | 11 2c 0e 5c 66 d9 5f 0e |m...T...|.,.\f._.|
|00001a20| 5c 66 d3 a5 0e 5c 66 d7 | a5 5b 0e 5c 66 d8 a5 5c |\f...\f.|.[.\f..\|
|00001a30| 5c 5c 5c 5c 5c 5c 5c 29 | 21 21 50 0e 1a 5c 22 2a |\\\\\\\)|!!P..\"*|
|00001a40| 87 22 20 5b 65 75 72 6f | 70 65 61 6e 2d 63 61 6c |." [euro|pean-cal|
|00001a50| 65 6e 64 61 72 2d 73 74 | 79 6c 65 20 28 64 61 79 |endar-st|yle (day|
|00001a60| 20 22 20 2a 20 22 29 20 | 28 22 2a 20 22 20 64 61 | " * ") |("* " da|
|00001a70| 79 29 20 63 61 6c 65 6e | 64 61 72 2d 64 61 74 65 |y) calen|dar-date|
|00001a80| 2d 64 69 73 70 6c 61 79 | 2d 66 6f 72 6d 20 63 61 |-display|-form ca|
|00001a90| 6c 65 6e 64 61 72 2d 69 | 73 6c 61 6d 69 63 2d 6d |lendar-i|slamic-m|
|00001aa0| 6f 6e 74 68 2d 6e 61 6d | 65 2d 61 72 72 61 79 20 |onth-nam|e-array |
|00001ab0| 63 61 6c 65 6e 64 61 72 | 2d 6d 6f 6e 74 68 2d 6e |calendar|-month-n|
|00001ac0| 61 6d 65 2d 61 72 72 61 | 79 20 6d 61 6b 65 2d 64 |ame-arra|y make-d|
|00001ad0| 69 61 72 79 2d 65 6e 74 | 72 79 20 69 73 6c 61 6d |iary-ent|ry islam|
|00001ae0| 69 63 2d 64 69 61 72 79 | 2d 65 6e 74 72 79 2d 73 |ic-diary|-entry-s|
|00001af0| 79 6d 62 6f 6c 20 63 61 | 6c 65 6e 64 61 72 2d 64 |ymbol ca|lendar-d|
|00001b00| 61 74 65 2d 73 74 72 69 | 6e 67 20 63 61 6c 65 6e |ate-stri|ng calen|
|00001b10| 64 61 72 2d 69 73 6c 61 | 6d 69 63 2d 66 72 6f 6d |dar-isla|mic-from|
|00001b20| 2d 61 62 73 6f 6c 75 74 | 65 20 63 61 6c 65 6e 64 |-absolut|e calend|
|00001b30| 61 72 2d 63 75 72 73 6f | 72 2d 74 6f 2d 64 61 74 |ar-curso|r-to-dat|
|00001b40| 65 20 74 20 70 72 69 6f | 72 2d 79 65 61 72 73 20 |e t prio|r-years |
|00001b50| 6d 6f 6e 74 68 20 64 61 | 79 20 79 65 61 72 20 33 |month da|y year 3|
|00001b60| 31 20 64 61 79 2d 6f 66 | 2d 79 65 61 72 20 32 20 |1 day-of|-year 2 |
|00001b70| 34 20 32 33 20 31 30 20 | 30 20 31 30 30 20 34 30 |4 23 10 |0 100 40|
|00001b80| 30 20 33 36 35 20 61 72 | 67 5d 20 31 30 20 22 5c |0 365 ar|g] 10 "\|
|00001b90| 0a 49 6e 73 65 72 74 20 | 61 20 6d 6f 6e 74 68 6c |.Insert |a monthl|
|00001ba0| 79 20 64 69 61 72 79 20 | 65 6e 74 72 79 2e 0a 46 |y diary |entry..F|
|00001bb0| 6f 72 20 74 68 65 20 64 | 61 79 20 6f 66 20 74 68 |or the d|ay of th|
|00001bc0| 65 20 49 73 6c 61 6d 69 | 63 20 6d 6f 6e 74 68 20 |e Islami|c month |
|00001bd0| 63 6f 72 72 65 73 70 6f | 6e 64 69 6e 67 20 74 6f |correspo|nding to|
|00001be0| 20 74 68 65 20 64 61 74 | 65 20 69 6e 64 69 63 61 | the dat|e indica|
|00001bf0| 74 65 64 20 62 79 20 70 | 6f 69 6e 74 2e 0a 50 72 |ted by p|oint..Pr|
|00001c00| 65 66 69 78 20 61 72 67 | 20 77 69 6c 6c 20 6d 61 |efix arg| will ma|
|00001c10| 6b 65 20 74 68 65 20 65 | 6e 74 72 79 20 6e 6f 6e |ke the e|ntry non|
|00001c20| 6d 61 72 6b 69 6e 67 2e | 22 20 22 50 22 5d 29 0a |marking.|" "P"]).|
|00001c30| 28 64 65 66 61 6c 69 61 | 73 20 27 69 6e 73 65 72 |(defalia|s 'inser|
|00001c40| 74 2d 79 65 61 72 6c 79 | 2d 69 73 6c 61 6d 69 63 |t-yearly|-islamic|
|00001c50| 2d 64 69 61 72 79 2d 65 | 6e 74 72 79 20 23 5b 28 |-diary-e|ntry #[(|
|00001c60| 61 72 67 29 20 22 08 83 | 08 00 c1 82 09 00 c2 1b |arg) "..|........|
|00001c70| 5c 66 1d c6 0e 07 c8 c9 | ca cb 21 41 41 40 53 1e |\f......|..!AA@S.|
|00001c80| 5c 66 ca cb 21 40 1e 0d | ca cb 21 41 40 1e 0e ca |\f..!@..|..!A@...|
|00001c90| cb 21 41 41 40 1e 0f 0e | 0e 0e 0d 53 d0 5f 5c 5c |.!AA@...|...S._\\|
|00001ca0| 1e 11 0e 0d d2 56 83 6d | 00 0e 11 0e 0d d3 5f d4 |.....V.m|......_.|
|00001cb0| 5c 5c d5 a5 5a 16 11 0e | 0f d3 a6 d6 55 83 6d 00 |\\..Z...|....U.m.|
|00001cc0| 0e 0f d7 a6 d6 55 83 68 | 00 0e 0f d8 a6 d6 55 83 |.....U.h|......U.|
|00001cd0| 6d 00 0e 11 54 16 11 0e | 11 2c 0e 5c 66 d9 5f 0e |m...T...|.,.\f._.|
|00001ce0| 5c 66 d3 a5 0e 5c 66 d7 | a5 5b 0e 5c 66 d8 a5 5c |\f...\f.|.[.\f..\|
|00001cf0| 5c 5c 5c 5c 5c 5c 5c 29 | 21 21 50 0e 1a 5c 22 2a |\\\\\\\)|!!P..\"*|
|00001d00| 87 22 20 5b 65 75 72 6f | 70 65 61 6e 2d 63 61 6c |." [euro|pean-cal|
|00001d10| 65 6e 64 61 72 2d 73 74 | 79 6c 65 20 28 64 61 79 |endar-st|yle (day|
|00001d20| 20 22 20 22 20 6d 6f 6e | 74 68 6e 61 6d 65 29 20 | " " mon|thname) |
|00001d30| 28 6d 6f 6e 74 68 6e 61 | 6d 65 20 22 20 22 20 64 |(monthna|me " " d|
|00001d40| 61 79 29 20 63 61 6c 65 | 6e 64 61 72 2d 64 61 74 |ay) cale|ndar-dat|
|00001d50| 65 2d 64 69 73 70 6c 61 | 79 2d 66 6f 72 6d 20 63 |e-displa|y-form c|
|00001d60| 61 6c 65 6e 64 61 72 2d | 69 73 6c 61 6d 69 63 2d |alendar-|islamic-|
|00001d70| 6d 6f 6e 74 68 2d 6e 61 | 6d 65 2d 61 72 72 61 79 |month-na|me-array|
|00001d80| 20 63 61 6c 65 6e 64 61 | 72 2d 6d 6f 6e 74 68 2d | calenda|r-month-|
|00001d90| 6e 61 6d 65 2d 61 72 72 | 61 79 20 6d 61 6b 65 2d |name-arr|ay make-|
|00001da0| 64 69 61 72 79 2d 65 6e | 74 72 79 20 69 73 6c 61 |diary-en|try isla|
|00001db0| 6d 69 63 2d 64 69 61 72 | 79 2d 65 6e 74 72 79 2d |mic-diar|y-entry-|
|00001dc0| 73 79 6d 62 6f 6c 20 63 | 61 6c 65 6e 64 61 72 2d |symbol c|alendar-|
|00001dd0| 64 61 74 65 2d 73 74 72 | 69 6e 67 20 63 61 6c 65 |date-str|ing cale|
|00001de0| 6e 64 61 72 2d 69 73 6c | 61 6d 69 63 2d 66 72 6f |ndar-isl|amic-fro|
|00001df0| 6d 2d 61 62 73 6f 6c 75 | 74 65 20 63 61 6c 65 6e |m-absolu|te calen|
|00001e00| 64 61 72 2d 63 75 72 73 | 6f 72 2d 74 6f 2d 64 61 |dar-curs|or-to-da|
|00001e10| 74 65 20 74 20 70 72 69 | 6f 72 2d 79 65 61 72 73 |te t pri|or-years|
|00001e20| 20 6d 6f 6e 74 68 20 64 | 61 79 20 79 65 61 72 20 | month d|ay year |
|00001e30| 33 31 20 64 61 79 2d 6f | 66 2d 79 65 61 72 20 32 |31 day-o|f-year 2|
|00001e40| 20 34 20 32 33 20 31 30 | 20 30 20 31 30 30 20 34 | 4 23 10| 0 100 4|
|00001e50| 30 30 20 33 36 35 20 61 | 72 67 5d 20 31 30 20 22 |00 365 a|rg] 10 "|
|00001e60| 5c 0a 49 6e 73 65 72 74 | 20 61 6e 20 61 6e 6e 75 |\.Insert| an annu|
|00001e70| 61 6c 20 64 69 61 72 79 | 20 65 6e 74 72 79 2e 0a |al diary| entry..|
|00001e80| 46 6f 72 20 74 68 65 20 | 64 61 79 20 6f 66 20 74 |For the |day of t|
|00001e90| 68 65 20 49 73 6c 61 6d | 69 63 20 79 65 61 72 20 |he Islam|ic year |
|00001ea0| 63 6f 72 72 65 73 70 6f | 6e 64 69 6e 67 20 74 6f |correspo|nding to|
|00001eb0| 20 74 68 65 20 64 61 74 | 65 20 69 6e 64 69 63 61 | the dat|e indica|
|00001ec0| 74 65 64 20 62 79 20 70 | 6f 69 6e 74 2e 0a 50 72 |ted by p|oint..Pr|
|00001ed0| 65 66 69 78 20 61 72 67 | 20 77 69 6c 6c 20 6d 61 |efix arg| will ma|
|00001ee0| 6b 65 20 74 68 65 20 65 | 6e 74 72 79 20 6e 6f 6e |ke the e|ntry non|
|00001ef0| 6d 61 72 6b 69 6e 67 2e | 22 20 22 50 22 5d 29 0a |marking.|" "P"]).|
|00001f00| 28 70 72 6f 76 69 64 65 | 20 28 71 75 6f 74 65 20 |(provide| (quote |
|00001f10| 64 69 61 72 79 2d 69 6e | 73 29 29 0a |diary-in|s)). |
+--------+-------------------------+-------------------------+--------+--------+
